home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / t2win_32.zip / _MDIT2W.FRM < prev    next >
Text File  |  1996-05-14  |  7KB  |  257 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm mdiT2W 
  3.    AutoShowChildren=   0   'False
  4.    BackColor       =   &H00808080&
  5.    Caption         =   "TIME TO WIN 32-Bit DEMO"
  6.    ClientHeight    =   7335
  7.    ClientLeft      =   705
  8.    ClientTop       =   1245
  9.    ClientWidth     =   10410
  10.    Height          =   8025
  11.    Icon            =   "_Mdit2w.frx":0000
  12.    Left            =   645
  13.    Top             =   615
  14.    Width           =   10530
  15.    Begin Threed.SSPanel SSPanel1 
  16.       Align           =   1  'Align Top
  17.       Height          =   465
  18.       Left            =   0
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   10410
  22.       _Version        =   65536
  23.       _ExtentX        =   18362
  24.       _ExtentY        =   820
  25.       _StockProps     =   15
  26.       BackColor       =   12632256
  27.       Begin VB.Timer Timer1 
  28.          Enabled         =   0   'False
  29.          Left            =   11025
  30.          Top             =   30
  31.       End
  32.       Begin VB.PictureBox Picture1 
  33.          AutoSize        =   -1  'True
  34.          Height          =   300
  35.          Left            =   11550
  36.          Picture         =   "_Mdit2w.frx":030A
  37.          ScaleHeight     =   240
  38.          ScaleWidth      =   240
  39.          TabIndex        =   6
  40.          Top             =   75
  41.          Visible         =   0   'False
  42.          Width           =   300
  43.       End
  44.       Begin VB.ComboBox cmb_Group 
  45.          Height          =   315
  46.          Left            =   2250
  47.          TabIndex        =   2
  48.          Top             =   90
  49.          Width           =   4695
  50.       End
  51.       Begin VB.Label Label1 
  52.          Caption         =   "&Select a group of functions"
  53.          Height          =   255
  54.          Left            =   90
  55.          TabIndex        =   1
  56.          Top             =   120
  57.          Width           =   2085
  58.       End
  59.    End
  60.    Begin Threed.SSPanel SSPanel2 
  61.       Align           =   2  'Align Bottom
  62.       Height          =   420
  63.       Left            =   0
  64.       TabIndex        =   3
  65.       Top             =   6915
  66.       Width           =   10410
  67.       _Version        =   65536
  68.       _ExtentX        =   18362
  69.       _ExtentY        =   741
  70.       _StockProps     =   15
  71.       BackColor       =   12632256
  72.       Begin Threed.SSPanel pnl_Timer 
  73.          Height          =   240
  74.          Left            =   2970
  75.          TabIndex        =   5
  76.          Top             =   90
  77.          Width           =   825
  78.          _Version        =   65536
  79.          _ExtentX        =   1455
  80.          _ExtentY        =   423
  81.          _StockProps     =   15
  82.          BackColor       =   12632256
  83.       End
  84.       Begin Threed.SSPanel pnl_Version 
  85.          Height          =   240
  86.          Left            =   11340
  87.          TabIndex        =   8
  88.          Top             =   90
  89.          Width           =   510
  90.          _Version        =   65536
  91.          _ExtentX        =   900
  92.          _ExtentY        =   423
  93.          _StockProps     =   15
  94.          BackColor       =   12632256
  95.       End
  96.       Begin VB.Label Label4 
  97.          AutoSize        =   -1  'True
  98.          Height          =   195
  99.          Left            =   4935
  100.          TabIndex        =   9
  101.          Top             =   105
  102.          Width           =   45
  103.       End
  104.       Begin VB.Label Label3 
  105.          Alignment       =   1  'Right Justify
  106.          Caption         =   "TIME2WIN version"
  107.          Height          =   225
  108.          Left            =   9765
  109.          TabIndex        =   7
  110.          Tag             =   "elapsed time for ~ iterations (in ms)"
  111.          Top             =   105
  112.          Width           =   1440
  113.       End
  114.       Begin VB.Label Label2 
  115.          Caption         =   "elapsed time for ? iterations (in ms)"
  116.          Height          =   225
  117.          Left            =   90
  118.          TabIndex        =   4
  119.          Tag             =   "elapsed time for ~ iterations (in ms)"
  120.          Top             =   105
  121.          Width           =   2805
  122.       End
  123.    End
  124.    Begin VB.Menu mnu_List 
  125.       Caption         =   "&Window List"
  126.       WindowList      =   -1  'True
  127.    End
  128.    Begin VB.Menu mnu_Exit 
  129.       Caption         =   "E&xit"
  130.    End
  131. End
  132. Attribute VB_Name = "mdiT2W"
  133. Attribute VB_Creatable = False
  134. Attribute VB_Exposed = False
  135. Option Explicit
  136.  
  137. Dim IsLoaded         As Integer
  138.  
  139.  
  140. Private Sub cmb_Group_Click()
  141.  
  142.    Dim Frm        As Form
  143.  
  144.    Select Case cmb_Group.ListIndex
  145.       Case 0:  Set Frm = frmArray
  146.       Case 1:  Set Frm = frmBitString
  147.       Case 2:  Set Frm = frmDayMonth
  148.       Case 3:  Set Frm = frmDAString
  149.       Case 4:  Set Frm = frmDALong
  150.       Case 5:  Set Frm = frmDAType
  151.       Case 6:  Set Frm = frmIeeenum
  152.       Case 7:  Set Frm = frmMem
  153.       Case 8:  Set Frm = frmFile
  154.       Case 9:  Set Frm = frmCompress
  155.       Case 10: Set Frm = frmCrc32
  156.       Case 11: Set Frm = frmEncrypt
  157.       Case 12: Set Frm = frmMatrix
  158.       Case 13: Set Frm = frmIsX
  159.       Case 14: Set Frm = frmSerialization
  160.       Case 15: Set Frm = frmString
  161.       Case 16: Set Frm = frmMisc
  162.       Case 17: Set Frm = frmObject
  163.       Case 18: Set Frm = frmLanguage
  164.       Case 19: Set Frm = frmCrypt
  165.       Case 20: Set Frm = frmRegistry
  166.       Case 21: Set Frm = frmMediaID
  167.       Case 22: Set Frm = frmDIBBitmap
  168.       Case 23: Set Frm = frmTile
  169.       Case 24: Set Frm = frmEnumPJ
  170.    End Select
  171.    
  172.    Load Frm
  173.    
  174. End Sub
  175.  
  176.  
  177.  
  178. Private Sub MDIForm_Load()
  179.  
  180.    Dim intResult     As Integer
  181.    
  182.    Me.WindowState = 2
  183.    
  184.    IsLoaded = False
  185.    
  186.    pnl_Version = Format(cGetVersion(), "#.00")
  187.    
  188.    Call cCenterWindow(Me.hWnd)
  189.    
  190.    Call sub_Check_Project
  191.  
  192.    Call sub_Initialization
  193.  
  194.    Call sub_Load_Combo(cmb_Group, T2WDirInst + "_group.t2w")
  195.    
  196.    Label4.Caption = "Register TIME TO WIN   "
  197.    Timer1.interval = 124
  198.    Timer1.Enabled = True
  199.    
  200.    'intResult = cTaskBarAddIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption)
  201.    
  202.    MsgBox "3 new functions (see T2WIN-32.HLP) : " & vbCrLf & vbCrLf & "c3DWeightAverage" & vbCrLf & "cFProcessAsciiFile" & vbCrLf & "cFGotoRecord", , "TIME TO WIN (32-Bit) version " & cGetVersion()
  203.       
  204.    IsLoaded = True
  205.    
  206. End Sub
  207.  
  208.  
  209. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  210.  
  211.    Dim intResult     As Integer
  212.  
  213.    If (Len(T2WDirTest) > 0) Then
  214.       intResult = cChDir(T2WDirInst)
  215.       Call cKillFilesAll(T2WDirTest + "\*.*")
  216.       Call cKillDir(T2WDirTest)
  217.    End If
  218.    
  219.    MsgBox "Thank you for registering T2WIN-32.DLL", , "T2WIN-32.DLL demo"
  220.    
  221.    intResult = cTaskBarDeleteIcon(mdiT2W.hWnd)
  222.    
  223. End Sub
  224.  
  225. Private Sub MDIForm_Resize()
  226.    
  227.    Dim intResult     As Integer
  228.    
  229.    If (Me.WindowState = 1) Then
  230.       intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption + " (minimized) ")
  231.    End If
  232.    
  233.    If (Me.WindowState = 2) Then
  234.       intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption)
  235.    End If
  236.       
  237.    If (Me.WindowState = 0) Then Me.WindowState = 2
  238.    
  239. End Sub
  240.  
  241.  
  242.  
  243.  
  244. Private Sub mnu_Exit_Click()
  245.  
  246.    Unload Me
  247.  
  248. End Sub
  249.  
  250. Private Sub Timer1_Timer()
  251.  
  252.    Label4.Caption = cScrollL(Label4.Caption)
  253.    
  254. End Sub
  255.  
  256.  
  257.